#!/usr/bin/perl -w
use strict;
for (<>)
{
	exit 1 if (! -f $_);
}
